-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(0, 0, 0, 0)
-- screen: Rect(0, 0, 0, 0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2670
-- card count: 1
-- first card id: 3051
-- list block id: 3411
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 1
-- free size: 4320 bytes
-- total size: 16384 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startUp
end startUp

on resume
end resume

on openStack
  global stacks
  if stacks is empty then
    getHomeInfo
    startUp
  end if
  show menubar
  global useLevPrev
  put the userlevel into useLevPrev
  set userLevel to 5
  showMessage "Welcome to “ShowMessage”"
  wait 3 secs
  hideMessage
  showMessage "ShowMessage is Copyright ©1988 by Dean H. Wette."
  wait 3 secs
  hideMessage
  showMessage "But it's FreeWare nevertheless!"
  wait 3 secs
  hideMessage
  show bg fld docs
end openStack

on closeStack
  global useLevPrev
  set the userLevel to useLevprev
  hide bg fld docs
end closeStack

on showMessage string1,string2
  put return & string1 & return & string2 into fld textframe
  lock screen
  show bg fld "Frame1"
  show bg fld "Frame2"
  show bg fld "textFrame"
  unlock screen
end showMessage

on hideMessage
  lock screen
  hide bg fld "Frame1"
  hide bg fld "Frame2"
  hide bg fld "textFrame"
  unlock screen
  put empty into bg fld "textFrame"
end hideMessage